home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / prog_c / cuj0696.zip / DWYER.ZIP / SERIAL.TST / CHIONCHI.AWK < prev    next >
Text File  |  1995-10-23  |  489b  |  24 lines
  1. BEGIN\
  2. {
  3.     LoIdx = 11111;
  4.     HiIdx = -1;
  5. }
  6. /Degrees/{\
  7.     ++ItmCnt;
  8.     Idx = int($NF)+1;
  9.     if (Idx < LoIdx) LoIdx = Idx;
  10.     if (Idx > HiIdx) HiIdx = Idx;
  11.     ++PctCnt[Idx];
  12. }
  13. END{\
  14.     for (i = 1; i <= 100; ++i)
  15.     {
  16. #        ChiSqValu += (PctCnt[i] - ItmCnt/100)^2;
  17.         ChiSqValu += PctCnt[i]^2;
  18.     }
  19. #    ChiSqValu /= ItmCnt/100.0;
  20.     ChiSqValu = ChiSqValu * 100/ItmCnt - ItmCnt;
  21.     printf("LoIdx = %d, HiIdx = %d\n", LoIdx, HiIdx);
  22.     printf("No. Vals = %d, Chi Square = %f\n", ItmCnt, ChiSqValu);
  23. }
  24.